00200		SUBROUTINE NEWR
00210		COMMON/PTR/PWDS(250),ITEM,LL,IS,IX
00300		COMMON/XRN/RN(4000)
00400		COMMON/SCM/V(78),I,LCNT,STAFF,LIST(200),REND
00500		COMMON/SCX/RHY(4),JALPHA(19),JX,U,JZ,IRHY,JD,KA,KB,IZ
00600		1 /SC/J,L,MK,ISKP,XMINUS,N,IEXP,LK,NNUM,JJ,JA,DBST,NFLG
00700		1 ,IXX,ISEMI,IQT,VX(50),IAMP,K,KN,M,MODE,IBLA
00900		DIMENSION R(10,80)
01100		EQUIVALENCE (R,RN(3001))
01300	
01450		IF(MODE.NE.1)GO TO 1
01462		IK=IS
01470		JIT=ITEM
01481	1	IS=IK
01490		ITEM=JIT+1
01500	C  MODE 1=NOTE, 2=RHYTH, 3=ACCENTS, 4=BEAMS, 5=SLURS.
01600		DO 2 K=1,IZ
01637		IF(R(8,K).EQ.9999.)GO TO 2
01656	C  SKIPS INVIS RESTS - ONLY NEEDED IN RHYTH.
01675	C  JUMP FOR BEAM CONT.
01680		IEND=-1
01690		IF(R(1,K).EQ.1)IEND=8
01700		DO 3 L=8,1,-1
01750		A=R(L,K)
01775		IF(A.EQ.0.AND.IEND)GO TO 3
01787		IF(IEND)IEND=L
01800		RN(IS+L)=A
01850	3	CONTINUE
01900		IF(IEND.LT.3)IEND=3
02000	C  IT'S POSSIBLE TO GET A BAD STAFF NUM. FOR A CLEF ON STF.0
02660		CALL UPDATE(IEND-2)
02700	2	CONTINUE
03500		END